* Create tables for:
* Class, Policy Attitudes and U.S. Presidential Voting in the Post-Industrial Era: The Importance of Issue Salience
* Franko & Witko
* Political Research Quarterly
* Date: 05/25/22


*******************************************************************************
* Tables.
*******************************************************************************

****************************************************************************
* Models presented in the main text.
****************************************************************************

* Set up locals.
* Class labels.
local clslabs "1.egp5 "Upper Class" 2.egp5 "Upper Mid. Class" 3.egp5 "Mid.-Class Service" 4.egp5 "Mid.-Class Manual" 5.egp5 "Working Class" subclass "Subjective Class" inc5 "Income" edu5 "Education""

* Policy labels.
local pollabs "govineq01 "Reduce Ineq." jobs01 "Guaranteed Jobs/Inc." culpol01 "Culture Policy" racepol01 "Race Policy""

* Salience labels.
local sallabs "issu_econ1 "Redist. Salience" issu_cult1 "Culture Salience" issu_race1 "Race Salience""

* Control labels.
local clabs "pid7 "Party ID" polviews "Ideology" white "White" age "Age" female "Female" south "South" _cons "Constant""

local vord "subclass *egp* inc5 edu5 pid7 polviews age female south"

local namesub "egp5_1 1.egp5 egp5_2 2.egp5 egp5_3 3.egp5 egp5_4 4.egp5 egp5_5 5.egp5"


*** Class and voting.

* Table E1
* GSS voting pooled, all respondents.
esttab dvote_subclass_gss_all dvote_egp5_gss_all dvote_inc5_gss_all dvote_edu5_gss_all dvote_nocls_gss_all dvote_full_gss_all using ///
"tab.gssvote.all.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(subclass *egp* `vord') mlabels(none) ///
title(The Effect of Social Class on Democratic Vote (GSS), All Respondents\label{tab:mods.gssvote.all}) ///
drop(var(*)) eqlabels(none) ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteA}" "\end{table}")

* Table E2
* GSS voting pooled, whites only.
esttab dvote_subclass_gss_wo dvote_egp5_gss_wo dvote_inc5_gss_wo dvote_edu5_gss_wo dvote_nocls_gss_wo dvote_full_gss_wo using ///
"tab.gssvote.wo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(subclass *egp* `vord') mlabels(none) ///
title(The Effect of Social Class on Democratic Vote (GSS), White Respondents Only\label{tab:mods.gssvote.wo}) ///
drop(var(*)) eqlabels(none) ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteA}" "\end{table}")

* Table E3
* GSS voting pooled, nonwhites only.
esttab dvote_subclass_gss_nwo dvote_egp5_gss_nwo dvote_inc5_gss_nwo dvote_edu5_gss_nwo dvote_nocls_gss_nwo dvote_full_gss_nwo using ///
"tab.gssvote.nwo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(subclass *egp* `vord') mlabels(none) ///
title(The Effect of Social Class on Democratic Vote (GSS), Nonwhite Respondents Only\label{tab:mods.gssvote.nwo}) ///
drop(var(*)) eqlabels(none) ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteA}" "\end{table}")

* Table E4
* ANES voting pooled, all respondents.
esttab dvote_subclass_anes_all dvote_egp5_anes_all dvote_inc5_anes_all dvote_edu5_anes_all dvote_nocls_anes_all dvote_full_anes_all using ///
"tab.anesvote.all.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(subclass *egp* `vord') mlabels(none) ///
title(The Effect of Social Class on Democratic Vote (ANES), All Respondents\label{tab:mods.anesvote.all}) ///
drop(var(*)) eqlabels(none) ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteA}" "\end{table}")

* Table E5
* ANES voting pooled, whites only.
esttab dvote_subclass_anes_wo dvote_egp5_anes_wo dvote_inc5_anes_wo dvote_edu5_anes_wo dvote_nocls_anes_wo dvote_full_anes_wo using ///
"tab.anesvote.wo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(subclass *egp* `vord') mlabels(none) ///
title(The Effect of Social Class on Democratic Vote (ANES), White Respondents Only\label{tab:mods.anesvote.wo}) ///
drop(var(*)) eqlabels(none) ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteA}" "\end{table}")

* Table E6
* ANES voting pooled, nonwhites only.
esttab dvote_subclass_anes_nwo dvote_egp5_anes_nwo dvote_inc5_anes_nwo dvote_edu5_anes_nwo dvote_nocls_anes_nwo dvote_full_anes_nwo using ///
"tab.anesvote.nwo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(subclass *egp* `vord') mlabels(none) ///
title(The Effect of Social Class on Democratic Vote (ANES), Nonwhite Respondents Only\label{tab:mods.anesvote.nwo}) ///
drop(var(*)) eqlabels(none) ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteA}" "\end{table}")

* Table E7
* GSS voting over time, all respondents.
esttab dvote_subclass_gss_time dvote_egp1_gss_time dvote_egp2_gss_time dvote_inc5_gss_time dvote_edu5_gss_time using ///
"tab.gssvote.time.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(subclass *egp* `vord') ///
mlabels("\shortstack{Subjective\\Class}" "EGP (1)" "EGP (2)" "Income" "Education") ///
title(The Over Time Effect of Social Class on Democratic Vote (GSS), All Respondents\label{tab:mods.gssvote.time}) ///
drop(var(*)) eqlabels(none) nonumbers ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteC}" "\end{table}")

* Table E8
* ANES voting over time, all respondents.
esttab dvote_subclass_anes_time dvote_egp1_anes_time dvote_egp2_anes_time dvote_inc5_anes_time dvote_edu5_anes_time using ///
"tab.anesvote.time.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(subclass *egp* `vord') ///
mlabels("\shortstack{Subjective\\Class}" "EGP (1)" "EGP (2)" "Income" "Education") ///
title(The Over Time Effect of Social Class on Democratic Vote (ANES), All Respondents\label{tab:mods.anesvote.time}) ///
drop(var(*)) eqlabels(none) nonumbers ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteC}" "\end{table}")


*** Class and redistribution.

* Table E9
* Inequality pooled, all respondents.
esttab ineq_subclass_all ineq_egp5_all ineq_inc5_all ineq_edu5_all ineq_white_all  ineq_full_all using ///
"tab.ineq.all.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') mlabels(none) ///
title(The Effect of Social Class on Reducing Inequality Policy Attitudes (GSS), All Respondents\label{tab:mods.ineq.all}) ///
drop(lns1_1_1: lnsig_e:) eqlabels(none) ///
refcat(4.egp5 "\shortstack[l]{Working Class\\(ref.)}", below nolabel) nobase ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteB}" "\end{table}")

* Table E10
* Inequality pooled, whites only.
esttab ineq_subclass_wo ineq_egp5_wo ineq_inc5_wo ineq_edu5_wo ineq_pid7_wo ineq_full_wo using ///
"tab.ineq.wo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') mlabels(none) ///
title(The Effect of Social Class on Reducing Inequality Policy Attitudes (GSS), White Respondents Only\label{tab:mods.ineq.wo}) ///
drop(lns1_1_1: lnsig_e:) eqlabels(none) ///
refcat(4.egp5 "\shortstack[l]{Working Class\\(ref.)}", below nolabel) nobase ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteB}" "\end{table}")

* Table E11
* Inequality pooled, nonwhites only.
esttab ineq_subclass_nwo ineq_egp5_nwo ineq_inc5_nwo ineq_edu5_nwo ineq_pid7_nwo ineq_full_nwo using ///
"tab.ineq.nwo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') mlabels(none) ///
title(The Effect of Social Class on Reducing Inequality Policy Attitudes (GSS), Nonwhite Respondents Only\label{tab:mods.ineq.nwo}) ///
drop(lns1_1_1: lnsig_e:) eqlabels(none) ///
refcat(4.egp5 "\shortstack[l]{Working Class\\(ref.)}", below nolabel) nobase ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteB}" "\end{table}")

* Table E12
* Jobs pooled, all respondents.
esttab jobs_subclass_all jobs_egp5_all jobs_inc5_all jobs_edu5_all jobs_white_all  jobs_full_all using ///
"tab.jobs.all.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') mlabels(none) ///
title(The Effect of Social Class on Guaranteed Jobs and Income Policy Attitudes (ANES), All Respondents\label{tab:mods.jobs.all}) ///
drop(lns1_1_1: lnsig_e:) eqlabels(none) ///
refcat(4.egp5 "\shortstack[l]{Working Class\\(ref.)}", below nolabel) nobase ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteB}" "\end{table}")

* Table E13
* Jobs pooled, whites only.
esttab jobs_subclass_wo jobs_egp5_wo jobs_inc5_wo jobs_edu5_wo jobs_pid7_wo jobs_full_wo using ///
"tab.jobs.wo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') mlabels(none) ///
title(The Effect of Social Class on Guaranteed Jobs and Income Policy Attitudes (ANES), White Respondents Only\label{tab:mods.jobs.wo}) ///
drop(lns1_1_1: lnsig_e:) eqlabels(none) ///
refcat(4.egp5 "\shortstack[l]{Working Class\\(ref.)}", below nolabel) nobase ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteB}" "\end{table}")

* Table E14
* Jobs pooled, nonwhites only.
esttab jobs_subclass_nwo jobs_egp5_nwo jobs_inc5_nwo jobs_edu5_nwo jobs_pid7_nwo jobs_full_nwo using ///
"tab.jobs.nwo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') mlabels(none) ///
title(The Effect of Social Class on Guaranteed Jobs and Income Policy Attitudes (ANES), Nonwhite Respondents Only\label{tab:mods.jobs.nwo}) ///
drop(lns1_1_1: lnsig_e:) eqlabels(none) ///
refcat(4.egp5 "\shortstack[l]{Working Class\\(ref.)}", below nolabel) nobase ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteB}" "\end{table}")


*** Class and culture.

* Table E15
* GSS culture pooled, all respondents.
esttab cultgss_subclass_all cultgss_egp5_all cultgss_inc5_all cultgss_edu5_all cultgss_white_all  cultgss_full_all using ///
"tab.cultgss.all.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') mlabels(none) ///
title(The Effect of Social Class on Culture Policy Attitudes (GSS), All Respondents\label{tab:mods.cultgss.all}) ///
drop(lns1_1_1: lnsig_e:) eqlabels(none) ///
refcat(4.egp5 "\shortstack[l]{Working Class\\(ref.)}", below nolabel) nobase ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteB}" "\end{table}")

* Table E16
* GSS culture pooled, whites only.
esttab cultgss_subclass_wo cultgss_egp5_wo cultgss_inc5_wo cultgss_edu5_wo cultgss_pid7_wo cultgss_full_wo using ///
"tab.cultgss.wo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') mlabels(none) ///
title(The Effect of Social Class on Culture Policy Attitudes (GSS), White Respondents Only\label{tab:mods.cultgss.wo}) ///
drop(lns1_1_1: lnsig_e:) eqlabels(none) ///
refcat(4.egp5 "\shortstack[l]{Working Class\\(ref.)}", below nolabel) nobase ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteB}" "\end{table}")

* Table E17
* GSS culture pooled, nonwhites only.
esttab cultgss_subclass_nwo cultgss_egp5_nwo cultgss_inc5_nwo cultgss_edu5_nwo cultgss_pid7_nwo cultgss_full_nwo using ///
"tab.cultgss.nwo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') mlabels(none) ///
title(The Effect of Social Class on Culture Policy Attitudes (GSS), Nonwhite Respondents Only\label{tab:mods.cultgss.nwo}) ///
drop(lns1_1_1: lnsig_e:) eqlabels(none) ///
refcat(4.egp5 "\shortstack[l]{Working Class\\(ref.)}", below nolabel) nobase ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteB}" "\end{table}")

* Table E18
* ANES culture pooled, all respondents.
esttab cultanes_subclass_all cultanes_egp5_all cultanes_inc5_all cultanes_edu5_all cultanes_white_all cultanes_full_all using ///
"tab.cultanes.all.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') mlabels(none) ///
title(The Effect of Social Class on Culture Policy Attitudes (ANES), All Respondents\label{tab:mods.cultanes.all}) ///
drop(lns1_1_1: lnsig_e:) eqlabels(none) ///
refcat(4.egp5 "\shortstack[l]{Working Class\\(ref.)}", below nolabel) nobase ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteB}" "\end{table}")

* Table E19
* ANES culture pooled, whites only.
esttab cultanes_subclass_wo cultanes_egp5_wo cultanes_inc5_wo cultanes_edu5_wo cultanes_pid7_wo cultanes_full_wo using ///
"tab.cultanes.wo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') mlabels(none) ///
title(The Effect of Social Class on Culture Policy Attitudes (ANES), White Respondents Only\label{tab:mods.cultanes.wo}) ///
drop(lns1_1_1: lnsig_e:) eqlabels(none) ///
refcat(4.egp5 "\shortstack[l]{Working Class\\(ref.)}", below nolabel) nobase ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteB}" "\end{table}")

* Table E20
* ANES culture pooled, nonwhites only.
esttab cultanes_subclass_nwo cultanes_egp5_nwo cultanes_inc5_nwo cultanes_edu5_nwo cultanes_pid7_nwo cultanes_full_nwo using ///
"tab.cultanes.nwo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') mlabels(none) ///
title(The Effect of Social Class on Culture Policy Attitudes (ANES), Nonwhite Respondents Only\label{tab:mods.cultanes.nwo}) ///
drop(lns1_1_1: lnsig_e:) eqlabels(none) ///
refcat(4.egp5 "\shortstack[l]{Working Class\\(ref.)}", below nolabel) nobase ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteB}" "\end{table}")


*** Race and culture.

* Table E21
* GSS race pooled, whites only.
esttab racegss_subclass_wo racegss_egp5_wo racegss_inc5_wo racegss_edu5_wo racegss_pid7_wo racegss_full_wo using ///
"tab.racegss.wo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') mlabels(none) ///
title(The Effect of Social Class on Race Policy Attitudes (GSS), White Respondents Only\label{tab:mods.racegss.wo}) ///
drop(lns1_1_1: lnsig_e:) eqlabels(none) ///
refcat(4.egp5 "\shortstack[l]{Working Class\\(ref.)}", below nolabel) nobase ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteB}" "\end{table}")

* Table E22
* ANES race pooled, whites only.
esttab raceanes_subclass_wo raceanes_egp5_wo raceanes_inc5_wo raceanes_edu5_wo raceanes_pid7_wo raceanes_full_wo using ///
"tab.raceanes.wo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') mlabels(none) ///
title(The Effect of Social Class on Race Policy Attitudes (ANES), White Respondents Only\label{tab:mods.raceanes.wo}) ///
drop(lns1_1_1: lnsig_e:) eqlabels(none) ///
refcat(4.egp5 "\shortstack[l]{Working Class\\(ref.)}", below nolabel) nobase ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteB}" "\end{table}")


*** Class and policy attitudes over time.

* Table E23
* Inequality over time, all respondents.
esttab ineq_subclass_time ineq_egp_time ineq_inc5_time ineq_edu5_time using ///
"tab.ineq.time.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') ///
mlabels("\shortstack{Subjective\\Class}" "EGP Class" "Income" "Education") ///
title(The Over Time Effect of Social Class on Reducing Inequality Policy Attitudes (GSS), All Respondents\label{tab:mods.ineq.time}) ///
drop(lns1_1_*: lnsig_e:) eqlabels(none) nonumbers ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteD}" "\end{table}")

* Table E24
* Jobs over time, all respondents.
esttab jobs_subclass_time jobs_egp_time jobs_inc5_time jobs_edu5_time using ///
"tab.jobs.time.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') ///
mlabels("\shortstack{Subjective\\Class}" "EGP Class" "Income" "Education") ///
title(The Over Time Effect of Social Class on Guaranteed Jobs and Income Policy Attitudes (ANES), All Respondents\label{tab:mods.jobs.time}) ///
drop(lns1_1_*: lnsig_e:) eqlabels(none) nonumbers ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteD}" "\end{table}")

* Table E25
* GSS culture over time, all respondents.
esttab cultgss_subclass_time cultgss_egp_time cultgss_inc5_time cultgss_edu5_time using ///
"tab.cultgss.time.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') ///
mlabels("\shortstack{Subjective\\Class}" "EGP Class" "Income" "Education") ///
title(The Over Time Effect of Social Class on Culture Policy Attitudes (GSS), All Respondents\label{tab:mods.cultgss.time}) ///
drop(lns1_1_*: lnsig_e:) eqlabels(none) nonumbers ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteD}" "\end{table}")

* Table E26
* ANES culture over time, all respondents.
esttab cultanes_subclass_time cultanes_egp_time cultanes_inc5_time cultanes_edu5_time using ///
"tab.cultanes.time.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') ///
mlabels("\shortstack{Subjective\\Class}" "EGP Class" "Income" "Education") ///
title(The Over Time Effect of Social Class on Culture Policy Attitudes (ANES), All Respondents\label{tab:mods.cultanes.time}) ///
drop(lns1_1_*: lnsig_e:) eqlabels(none) nonumbers ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteD}" "\end{table}")

* Table E27
* GSS race over time, whites only.
esttab racegss_subclass_time_wo racegss_egp_time_wo racegss_inc5_time_wo racegss_edu5_time_wo using ///
"tab.racegss.time.wo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') ///
mlabels("\shortstack{Subjective\\Class}" "EGP Class" "Income" "Education") ///
title(The Over Time Effect of Social Class on Race Policy Attitudes (GSS), White Respondents Only\label{tab:mods.racegss.time.wo}) ///
drop(lns1_1_*: lnsig_e:) eqlabels(none) nonumbers ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteD}" "\end{table}")

* Table E28
* ANES race over time, whites only.
esttab raceanes_subclass_time_wo raceanes_egp_time_wo raceanes_inc5_time_wo raceanes_edu5_time_wo using ///
"tab.raceanes.time.wo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`clslabs' `clabs') order(`vord') ///
mlabels("\shortstack{Subjective\\Class}" "EGP Class" "Income" "Education") ///
title(The Over Time Effect of Social Class on Race Policy Attitudes (ANES), White Respondents Only\label{tab:mods.raceanes.time.wo}) ///
drop(lns1_1_*: lnsig_e:) eqlabels(none) nonumbers ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteD}" "\end{table}")


*** Policy attidues and voting over time.

* Policy labels.
local pollabs "govineq01 "Reduce Ineq." jobs01 "Guaranteed Jobs/Inc." culpol01 "Culture Policy" racepol01 "Race Policy""

local pollabs2 "1.issu_econ1 "Redist. Salience" 1.issu_cult1 "Culture Salience" 1.issu_race1 "Race Salience" 1.issu_econ1#c.jobs01 "Guaranteed Jobs/Inc. $\times$ Redist. Salience" 1.issu_cult1#c.culpol01 "Culture Policy $\times$ Culture Salience" 1.issu_race1#c.racepol01 "Race Policy $\times$ Race Salience""

local vord2 "culpol01 racepol01 pid7 polviews age female south"


* Table E29
* GSS.
esttab dvp_govineq01_gss_time dvp_culpol01_gss_time dvp_racepol01_gss_time using ///
"tab.dvp.gss.time.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`pollabs' `clabs') order(govineq01 `vord2') ///
title(The Over Time Effect of Policy Attitudes on Democratic Vote (GSS), All Respondents\label{tab:mods.dvp.gss.time}) ///
mlabels(none) ///
drop(var(*)) eqlabels(none) ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteE}" "\end{table}")

* Table E30
* ANES.
esttab dvp_jobs01_anes_time dvp_culpol01_anes_time dvp_racepol01_anes_time using ///
"tab.dvp.anes.time.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`pollabs' `clabs') order(jobs01 `vord2') ///
title(The Over Time Effect of Policy Attitudes on Democratic Vote (ANES), All Respondents\label{tab:mods.dvp.anes.time}) ///
mlabels(none) ///
drop(var(*)) eqlabels(none) ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteE}" "\end{table}")

* Table E31
* ANES salience interactions.
esttab dvp_anes_sal dvp_anes_sal_wo using ///
"tab.dvp.anes.sal.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline \begin{table}[htbp]\centering \begin{table}[!h]\centering) ///
varlabels(`pollabs' `pollabs2' `clabs') order(jobs01 `vord2') ///
title(The Conditional Effect of Policy Attitudes on Democratic Vote by Issue Salience (ANES)\label{tab:mods.dvp.anes.sal}) ///
mlabels("\shortstack{All Respondents}" "\shortstack{White Respondents}") /// 
drop(var(*)) eqlabels(none) nonumbers ///
rename(`namesub') nobase ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnoteA}" "\end{table}")



****************************************************************************
* Summary statistics.
****************************************************************************

* GSS.
estimates restore sum_gss
* Table A2
esttab using "tab.desc.gss.csv", replace cells("mean(fmt(2)) sd(fmt(2)) min(fmt(0)) max(fmt(0))") noobs varwidth(0) nonumbers varlabels(govineq01 "Reduce Inequality" culpol01 "Culture Policy" racepol01 "Race Policy" demvote "Democratic Vote" egp5_1 "Upper Class" egp5_2 "Upper Middle Class" egp5_3 "Middle-Class Service" egp5_4 "Middle-Class Manual" egp5_5 "Working Class" subclass "Subjective Class" inc5 "Income" edu5 "Education" pid7 "Party ID" polviews "Ideology" white "White" age "Age" female "Female" south "South") collabels("Mean" "Std. dev." "Min." "Max.") 

* ANES.
estimates restore sum_anes
* Table A3
esttab using "tab.desc.anes.csv", replace cells("mean(fmt(2)) sd(fmt(2)) min(fmt(0)) max(fmt(0))") noobs varwidth(0) varlabels(jobs01 "Guaranteed Jobs / Income" culpol01 "Culture Policy" racepol01 "Race Policy" demvote "Democratic Vote" egp5_1 "Upper Class" egp5_2 "Upper Middle Class" egp5_3 "Middle-Class Service" egp5_4 "Middle-Class Manual" egp5_5 "Working Class" subclass "Subjective Class" inc5 "Income" edu5 "Education" pid7 "Party ID" polviews "Ideology" white "White" age "Age" female "Female" south "South") collabels("Mean" "Std. dev." "Min." "Max.") nonumbers



****************************************************************************
* Robustness check models.
****************************************************************************

* Set up locals. 
* Class labels.
local clslabs "1.egp5 "Upper Class" 2.egp5 "Upper Mid. Class" 3.egp5 "Mid.-Class Service" 4.egp5 "Mid.-Class Manual" 5.egp5 "Working Class" subclass "Subjective Class" inc5 "Income" edu5 "Education""

* Control labels.
local clabs "pid7 "Party ID" polviews "Ideology" white "White" age "Age" female "Female" south "South" _cons "Constant""

local vord "subclass *egp* inc5 edu5 pid7 polviews age female south"
*local vord2 "subclass *egp* inc5 edu5 pid7 polviews age female"

local namesub "egp5_1 1.egp5 egp5_2 2.egp5 egp5_3 3.egp5 egp5_4 4.egp5 egp5_5 5.egp5"



* [htbp] [!h]
* postfoot("\hline" "\end{tabular}" "\fnote{\tabnote}" "\end{table}")


*** Over time models.

*** Whites only subsamples.

* Table F1
* Voting GSS, whites only.
esttab dvote_subclass_gss_time_wo dvote_egp1_gss_time_wo dvote_egp2_gss_time_wo dvote_inc5_gss_time_wo dvote_edu5_gss_time_wo using ///
"tab.gssvote.time.wo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline [htbp] [!h]) ///
varlabels(`clslabs' `clabs') order(subclass *egp* `vord') ///
mlabels("\shortstack{Subjective\\Class}" "EGP (1)" "EGP (2)" "Income" "Education") ///
title(The Over Time Effect of Social Class on Democratic Vote (GSS), White Respondents Only\label{tab:mods.gssvote.time.wo}) ///
drop(var(*)) eqlabels(none) nonumbers ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnote}" "\end{table}")

* Table F2
* Voting ANES, whites only.
esttab dvote_subclass_anes_time_wo dvote_egp1_anes_time_wo dvote_egp2_anes_time_wo dvote_inc5_anes_time_wo dvote_edu5_anes_time_wo using ///
"tab.anesvote.time.wo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline [htbp] [!h]) ///
varlabels(`clslabs' `clabs') order(subclass *egp* `vord') ///
mlabels("\shortstack{Subjective\\Class}" "EGP (1)" "EGP (2)" "Income" "Education") ///
title(The Over Time Effect of Social Class on Democratic Vote (ANES), White Respondents Only\label{tab:mods.anesvote.time.wo}) ///
drop(var(*)) eqlabels(none) nonumbers ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnote}" "\end{table}")

* Table F3
* Inequality, whites only.
esttab ineq_subclass_time_wo ineq_egp_time_wo ineq_inc5_time_wo ineq_edu5_time_wo using ///
"tab.ineq.time.wo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline [htbp] [!h]) ///
varlabels(`clslabs' `clabs') order(`vord') ///
mlabels("\shortstack{Subjective\\Class}" "EGP Class" "Income" "Education") ///
title(The Over Time Effect of Social Class on Support for Reducing Inequality (GSS), White Respondents Only\label{tab:mods.ineq.time.wo}) ///
drop(lns1_1_*: lnsig_e:) eqlabels(none) nonumbers ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnote}" "\end{table}")

* Table F4
* Jobs, whites only.
esttab jobs_subclass_time_wo jobs_egp_time_wo jobs_inc5_time_wo jobs_edu5_time_wo using ///
"tab.jobs.time.wo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline [htbp] [!h]) ///
varlabels(`clslabs' `clabs') order(`vord') ///
mlabels("\shortstack{Subjective\\Class}" "EGP Class" "Income" "Education") ///
title(The Over Time Effect of Social Class on Support for Guaranteed Jobs and Income (ANES), White Respondents Only\label{tab:mods.jobs.time.wo}) ///
drop(lns1_1_*: lnsig_e:) eqlabels(none) nonumbers ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnote}" "\end{table}")

* Table F5
* Culture GSS, whites only.
esttab cultgss_subclass_time_wo cultgss_egp_time_wo cultgss_inc5_time_wo cultgss_edu5_time_wo using ///
"tab.cultgss.time.wo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline [htbp] [!h]) ///
varlabels(`clslabs' `clabs') order(`vord') ///
mlabels("\shortstack{Subjective\\Class}" "EGP Class" "Income" "Education") ///
title(The Over Time Effect of Social Class on Culture Policy Attitudes (GSS), White Respondents Only\label{tab:mods.cultgss.time.wo}) ///
drop(lns1_1_*: lnsig_e:) eqlabels(none) nonumbers ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnote}" "\end{table}")

* Table F6
* Culture ANES, whites only.
esttab cultanes_subclass_time_wo cultanes_egp_time_wo cultanes_inc5_time_wo cultanes_edu5_time_wo using ///
"tab.cultanes.time.wo.tex", replace ///
cells("b(star fmt(3))" se(par fmt(3))) starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001) ///
stats(N, fmt(0)) legend varwidth(0) ///
style(tex) substitute(_ \_ # X < $<$ + $^+$ \hline\hline \hline [htbp] [!h]) ///
varlabels(`clslabs' `clabs') order(`vord') ///
mlabels("\shortstack{Subjective\\Class}" "EGP Class" "Income" "Education") ///
title(The Over Time Effect of Social Class on Culture Policy Attitudes (ANES), White Respondents Only\label{tab:mods.cultanes.time.wo}) ///
drop(lns1_1_*: lnsig_e:) eqlabels(none) nonumbers ///
refcat(4.egp5 "Working Class (ref.)", below nolabel) nobase ///
rename(`namesub') ///
postfoot("\hline" "\end{tabular}" "\fnote{\tabnote}" "\end{table}")




